-- background: 3211 from stack: in
-- bmap block id: 5534
-- flags: 0000
-- background id: 0
-- name: Catalog
----- HyperTalk script -----
on openCard
  -- set up for multiple scrolling fields
  global initScroll
  put 0 into initScroll
  repeat with i = 2 to 5
    set the scroll of bkgnd field i to initScroll
  end repeat
end openCard

-- multiple field scroll
on updateScroll
  global initScroll
  repeat with i = 2 to 5
    set the scroll of bkgnd field i to initScroll
  end repeat
end updateScroll



-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=92 top=23 right=40 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Volume


-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=18 top=73 right=310 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: File Name
----- HyperTalk script -----
-- multiple scroll
on mouseWithin
  global initScroll
  if the scroll of me <> initScroll then
    get the scroll of me
    put it into initScroll
    updateScroll
  end if
end mouseWithin



-- part 3 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=139 top=73 right=310 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Object Type
----- HyperTalk script -----
-- multiple scroll
on mouseWithin
  global initScroll
  if the scroll of me <> initScroll then
    get the scroll of me
    put it into initScroll
    updateScroll
  end if
end mouseWithin



-- part 4 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=199 top=73 right=310 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Size
----- HyperTalk script -----
-- multiple scroll
on mouseWithin
  global initScroll
  if the scroll of me <> initScroll then
    get the scroll of me
    put it into initScroll
    updateScroll
  end if
end mouseWithin



-- part 5 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=261 top=73 right=310 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Date
----- HyperTalk script -----
-- multiple scroll
on mouseWithin
  global initScroll
  if the scroll of me <> initScroll then
    get the scroll of me
    put it into initScroll
    updateScroll
  end if
end mouseWithin



-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=371 top=240 right=262 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Catalog Disk
----- HyperTalk script -----
on mouseUp
  --repeat with x = 1 to the number of bkgnd fields
  -- put empty into field x
  -- end repeat
  put ReadCat(2,1,1,1,1,1,0,0,0) into dummy
  set the name of this card to line 1 of bkgnd field "Volume"
  put empty into field "When Done"
  put the abbrev date into field "When Done"
  send Calculate to field "TotalSize"
  put field "Set Size" - field "TotalSize" into field "FreeSize"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=399 top=265 right=299 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Left
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go prev
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=437 top=264 right=299 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Right
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go next
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=390 top=206 right=228 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  get the number of cards
  if it < 3 then
    beep 1
    answer "You wouldn't want to delete this card!"
    exit mouseUp
  else
    beep 1
    answer "Are you sure you want to delete this card?" with "Cancel" or "OK"
    If it is "OK" then
      doMenu "Delete Card"
    end if
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=389 top=171 right=193 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  go last card
  doMenu "New Card"
  put 800 into field "Set Size"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=478 top=268 right=297 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to card id 4254
end mouseUp




-- part 12 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=368 top=322 right=338 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: When Done


-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=389 top=138 right=160 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  ask "What would you like to find?" with "Disk or File name here"
  find it
end mouseUp



-- part 16 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=199 top=309 right=325 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TotalSize
----- HyperTalk script -----
on Calculate
  set numberFormat to "0"
  put 0.00 into runningTotal
  repeat with i = 1 to number of lines in field "size"
    get line i of field "size"
    add it to runningTotal
  end repeat
  put runningTotal into field "TotalSize"
end Calculate



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=321 right=342 bottom=23
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Flash


-- part 20 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=199 top=324 right=341 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FreeSize


-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=390 top=73 right=95 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 800K
----- HyperTalk script -----
on mouseUp
  get field "Set Size"
  if it = 800 then put 400 into field "Set Size"
  else
    put 800 into field "Set Size"
  end if
end mouseUp



-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=415 top=75 right=93 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Size